<!--#include file="functions.asp" -->
<%
dim mrecipient, msender, msubject, mbody, merror

mrecipient = "dgunawan@premier-oil.com;automo@premier-oil.com"
msender = "eInvoiceMailSystem"
msubject = "Test CDO email"
mbody = "<h2>This is just a testing email with CDO configuration</h2><em>Danny Gunawan</em>"
merror = SendCDOEmail(mrecipient, "","", msender, msubject, mbody) 
if merror = 0 then
  response.Write("Message sent successfully.")
else
  response.Write("Error sending email. Error code: " & merror)
end if

'	Set Email = Server.CreateObject("CDONTS.NewMail")
'	Email.From = "Mail_System"
'	Email.To = "dgunawan@premier-oil.com;automo@premier-oil.com" 
'	Email.BodyFormat = cdoBodyFormatHTML
'	Email.Body = "<h2>This is just a testing email with CDONTS configuration</h2><em>Danny Gunawan</em>"
'	Email.Subject = "Test CDONTS Email"
'	Email.Importance = 2
'	Email.MailFormat = cdoMailFormatMIME
'	Email.Send
'	Set Email = Nothing
%>